home *** CD-ROM | disk | FTP | other *** search
/ Loadstar Extras 3 / Ex3side1.d64 / jeffs strout < prev    next >
Text File  |  2022-08-28  |  272b  |  37 lines
  1.  
  2. chrout =$ffd2
  3. .org $c000
  4. .mem
  5. .obj "jstrout c000"
  6.  
  7. stx getit+1
  8. sty getit+2
  9.  
  10. ldy #0
  11. jsr rom'out
  12.  
  13. getit lda $c800,y
  14. jsr rom'in
  15. beq ++
  16. jsr chrout
  17. inc getit+1
  18. bne +
  19. inc getit+2
  20. + bne getit
  21.  
  22. + rts
  23.  
  24. rom'out pha
  25. lda #$74
  26. sei
  27. sta 1
  28. pla
  29. rts
  30.  
  31. rom'in pha
  32. lda #$77
  33. sta 1
  34. cli
  35. pla
  36. rts
  37.